home *** CD-ROM | disk | FTP | other *** search
- /*
-
- Welcome Release 2 DEMO
-
- Urban Lindeskog
-
- ProNotion (ProNova) SoftWare Development Group
-
- 03-May-93
-
-
- You can study this ARexx-script and the other ones
- included to get familiar with the features in Welcome.
-
- */
-
- if ~ show('L', "rexxsupport.library") then do
- if ~ addlib('rexxsupport.library', 0, -30, 0) then do
- exit 10
- end
- end
-
- options results
- address command
-
-
- 'run /Welcome LEFT "/Pictures/BigBabe" RIGHT "/Pictures/BigPNLogo" TEXT "\n\nWelcome Release 2 - DEMO Script" ROWS 8 COLUMNS 57 DRAGWINDOW'
- 'REXXC:waitforport WELCOME'
- address WELCOME
-
- again=1
- do while again
-
-
- 'TEXT "Hello, and Welcome to this DEMO!"'
- x=delay(100)
-
-
- 'TITLE TEXT "\n\n -Show me something!" RIGHT "/Pictures/BigBabe2"'
- x=delay(200)
- 'TITLE TEXT "\n\n-Sure, look here!"'
- 'CLEAR'
- x=delay(100)
-
-
- do i=0 to 300
- 'TEXT NOLINE "Hello there,"'
- end
- 'TITLE TEXT "\n\n -How Impressive !"'
- x=delay(100)
-
-
- 'TITLE TEXT "\n\n-Not really. What do YOU say?"'
- 'REQUESTSTRING "-Yes, what do YOU think about this?\n\nPlease be Honest with us!" "Really splendid, Great!"'
- text=result
- do i=0 to 20
- 'TEXT NOLINE "'text'"'
- end
- 'TITLE TEXT "\n\n-Is this MultiMedia, or WHAT?"'
- x=delay(100)
-
-
- 'TITLE LEFT "/Pictures/BigBalance" RIGHT "/Pictures/BigHand" TEXT "\n\n Get the balance right!!"'
- 'CLEAR'
- do x=0 to 3
- do i=0 to 7
- 'TEXTPEN' i
- 'BACKGROUNDPEN' (7-i)
- 'TEXT NOLINE "Hello World, "'
- end
- end
- x=delay(300)
-
-
- 'TITLE LEFT "/Pictures/BigPhone" RIGHT "/Pictures/Bigletter" TEXT "\n\n Call or Write to me !"'
- 'CLEAR'
- 'TEXT "Urban Lindeskog"'
- 'TEXT "Ekåsvägen 18 b"'
- 'TEXT "433 62 Partille, SWEDEN"'
- 'TEXT "---"'
- 'TEXT "+46-31-266806"'
- 'TEXT "FidoNet: 2:203/143.1"'
- 'TEXT "AmyNet : 39:160/305.1"'
- x=delay(500)
-
-
- 'TITLE LEFT "/Pictures/BigPNLogo" RIGHT "/Pictures/BigPNLogo" TEXT "\n\n ProNova are:"'
- 'CLEAR'
- 'TEXT "Urban Lindeskog"'
- 'TEXT "Stefan Ervik"'
- 'TEXT "David Nilsson"'
- 'TEXT "Daniel Johansson"'
- 'TEXT "Stefan Andersson"'
- x=delay(500)
-
-
- 'TITLE LEFT "/Pictures/Bigi" TEXT "\n\n For Your Information:"'
- 'CLEAR'
- 'TEXT "Read the Welcome guide, there can you find valuable"'
- 'TEXT "info about the ARexx commands in Welcome."'
- 'TEXT ""'
- 'TEXT "You can obtain a listing of the available commands"'
- 'TEXT "in Welcome by, first running Welcome and then write"'
- 'TEXT "WEcho HELP from a shell."'
- x=delay(500)
-
-
- 'TITLE LEFT "/Pictures/BigStop" TEXT "\n\n The End"'
- 'ASK "This is the End of this DEMO.\n\nDo you want to see it again?" _Yes _No'
- again=result
- if again then do
- 'TITLE LEFT "/Pictures/BigBabe" TEXT "\n\nWelcome Release 2 - DEMO Script"'
- 'CLEAR'
- end
- end
-
-
- 'QUIT'
-
-